#!/usr/bin/perl -w

	print "input find file.\n" if(@ARGV<1);

	$file=pop @ARGV;

	open FILE,"<",$file or die "not open file.";
	
	while(<FILE>)
	{
		print "$+{name} contains word end of \'a\'\n" if( m/(?<name> \w+a\b)/ );
	}